home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 5791-.end / dmg-6260 / source / drivlite.bas (.txt) < prev    next >
Atari STOS Basic  |  1993-06-26  |  6KB  |  25 lines
  1. 1 GOSUB
  2. 100 REM DO DRIVE LIGHTS
  3. 101 UNKNOWN OP: 0x3A
  4. 102 VARNAME
  5. 103 POKE
  6. 104 VARNAME
  7. 105 IF
  8. 106 IF
  9. 107 IF
  10. 108 POKE
  11. 109 RETURN
  12. 45 DREG
  13. 46 GOSUB
  14. 47 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  15. 48 REM           MAIN LOOP
  16. 49 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  17. 50 PEN
  18. 50000 MODE
  19. 50009 RETURN
  20. 59 REM LOOP
  21. 60 GOSUB
  22. 90 VARNAME
  23. 98 IF
  24. 99 GOTO
  25.